#!
@a1 = (1...10);
@a2 = (7...20);

%temp = ();
$temp{$_}=1 foreach (@a1);
@intersection = grep($temp{$_},@a2);
print join("  ",@intersection);